Club KidSoft Volume 2 #3

home *** CD-ROM | disk | FTP | other *** search
/ Club KidSoft Volume 2 #3 / CKSMACV23.BIN / DEMOS / CyberTown Demo / ParkDemo / ParkDemo.rsrc / VWFI_1024 < prev next >
Unknown | 1994-03-01 | 8.4 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`100%`	file	data	default
`100%`	TrID	Adobe PhotoShop Brush	default (weak)
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 10 00 97 43 78 | 00 00 00 08 00 00 00 20 |......Cx|....... |
|00000010| 00 07 00 00 00 00 00 00 | 20 fd 00 00 21 13 00 00 |........| ...!...|
|00000020| 21 3b 00 00 21 3b 00 00 | 21 3d 00 00 21 3d 00 00 |!;..!;..|!=..!=..|
|00000030| 21 3d 0d 4f 6e 20 50 65 | 72 69 6f 64 0d 20 20 47 |!=.On Pe|riod.  G|
|00000040| 6c 6f 62 61 6c 20 50 4f | 49 4e 54 45 52 2c 53 65 |lobal PO|INTER,Se|
|00000050| 67 4c 65 6e 67 74 68 2c | 4c 65 66 74 4f 66 66 73 |gLength,|LeftOffs|
|00000060| 65 74 2c 54 69 6d 65 50 | 65 72 69 6f 64 2c 44 55 |et,TimeP|eriod,DU|
|00000070| 44 45 2c 44 6f 67 44 6f | 6e 65 2c 74 68 65 54 65 |DE,DogDo|ne,theTe|
|00000080| 78 74 0d 20 20 70 75 74 | 20 46 41 4c 53 45 20 69 |xt.  put| FALSE i|
|00000090| 6e 74 6f 20 44 6f 67 44 | 6f 6e 65 0d 20 20 52 65 |nto DogD|one.  Re|
|000000a0| 70 65 61 74 20 77 68 69 | 6c 65 20 74 68 65 20 6d |peat whi|le the m|
|000000b0| 6f 75 73 65 44 6f 77 6e | 0d 20 20 20 20 50 75 74 |ouseDown|.    Put|
|000000c0| 20 28 28 28 74 68 65 20 | 4c 6f 63 48 20 6f 66 20 | (((the |LocH of |
|000000d0| 73 70 72 69 74 65 20 50 | 4f 49 4e 54 45 52 29 20 |sprite P|OINTER) |
|000000e0| 2d 20 4c 65 66 74 4f 66 | 66 73 65 74 29 2f 53 65 |- LeftOf|fset)/Se|
|000000f0| 67 4c 65 6e 67 74 68 29 | 20 2b 20 31 20 69 6e 74 |gLength)| + 1 int|
|00000100| 6f 20 54 65 6d 70 50 65 | 72 69 6f 64 0d 20 20 20 |o TempPe|riod.   |
|00000110| 20 69 66 20 54 69 6d 65 | 50 65 72 69 6f 64 20 3c | if Time|Period <|
|00000120| 3e 20 54 65 6d 70 50 65 | 72 69 6f 64 20 74 68 65 |> TempPe|riod the|
|00000130| 6e 0d 20 20 20 20 20 20 | 70 75 74 20 54 65 6d 70 |n.      |put Temp|
|00000140| 50 65 72 69 6f 64 20 69 | 6e 74 6f 20 54 69 6d 65 |Period i|nto Time|
|00000150| 50 65 72 69 6f 64 0d 20 | 20 20 20 20 20 53 65 74 |Period. |     Set|
|00000160| 20 74 68 65 20 43 61 73 | 74 4e 75 6d 20 6f 66 20 | the Cas|tNum of |
|00000170| 73 70 72 69 74 65 20 44 | 55 44 45 20 3d 20 74 68 |sprite D|UDE = th|
|00000180| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 63 61 73 74 |e number| of cast|
|00000190| 20 22 46 69 72 73 74 20 | 44 75 64 65 22 20 2b 20 | "First |Dude" + |
|000001a0| 54 69 6d 65 50 65 72 69 | 6f 64 20 2d 31 0d 20 20 |TimePeri|od -1.  |
|000001b0| 20 20 20 20 53 65 74 20 | 74 68 65 20 43 61 73 74 |    Set |the Cast|
|000001c0| 4e 75 6d 20 6f 66 20 73 | 70 72 69 74 65 20 74 68 |Num of s|prite th|
|000001d0| 65 54 65 78 74 20 3d 20 | 74 68 65 20 6e 75 6d 62 |eText = |the numb|
|000001e0| 65 72 20 6f 66 20 63 61 | 73 74 20 22 46 69 72 73 |er of ca|st "Firs|
|000001f0| 74 74 65 78 74 22 20 2b | 20 54 69 6d 65 50 65 72 |ttext" +| TimePer|
|00000200| 69 6f 64 20 2d 31 0d 20 | 20 20 20 65 6e 64 20 69 |iod -1. |   end i|
|00000210| 66 0d 20 20 20 20 53 65 | 74 20 74 68 65 20 4c 6f |f.    Se|t the Lo|
|00000220| 63 48 20 6f 66 20 73 70 | 72 69 74 65 20 50 4f 49 |cH of sp|rite POI|
|00000230| 4e 54 45 52 20 3d 20 74 | 68 65 20 6d 6f 75 73 65 |NTER = t|he mouse|
|00000240| 48 0d 20 20 20 20 75 70 | 64 61 74 65 53 74 61 67 |H.    up|dateStag|
|00000250| 65 0d 20 20 65 6e 64 20 | 72 65 70 65 61 74 0d 20 |e.  end |repeat. |
|00000260| 20 6c 6f 63 61 74 69 6f | 6e 0d 65 6e 64 20 50 65 | locatio|n.end Pe|
|00000270| 72 69 6f 64 0d 0d 6f 6e | 20 77 61 69 74 46 6f 72 |riod..on| waitFor|
|00000280| 20 73 65 63 6f 6e 64 73 | 0d 20 20 73 65 74 20 6e | seconds|.  set n|
|00000290| 6f 77 20 3d 20 74 68 65 | 20 74 69 6d 65 72 0d 20 |ow = the| timer. |
|000002a0| 20 72 65 70 65 61 74 20 | 77 68 69 6c 65 20 74 68 | repeat |while th|
|000002b0| 65 20 74 69 6d 65 72 20 | 3c 20 6e 6f 77 20 2b 20 |e timer |< now + |
|000002c0| 28 73 65 63 6f 6e 64 73 | 20 2a 20 36 30 29 0d 20 |(seconds| * 60). |
|000002d0| 20 65 6e 64 20 72 65 70 | 65 61 74 0d 65 6e 64 20 | end rep|eat.end |
|000002e0| 77 61 69 74 46 6f 72 0d | 0d 4f 6e 20 50 65 72 69 |waitFor.|.On Peri|
|000002f0| 6f 64 44 65 6d 6f 20 70 | 65 72 69 6f 64 0d 20 20 |odDemo p|eriod.  |
|00000300| 47 6c 6f 62 61 6c 20 50 | 4f 49 4e 54 45 52 2c 53 |Global P|OINTER,S|
|00000310| 65 67 4c 65 6e 67 74 68 | 2c 4c 65 66 74 4f 66 66 |egLength|,LeftOff|
|00000320| 73 65 74 2c 54 69 6d 65 | 50 65 72 69 6f 64 2c 44 |set,Time|Period,D|
|00000330| 55 44 45 2c 44 6f 67 44 | 6f 6e 65 2c 74 68 65 54 |UDE,DogD|one,theT|
|00000340| 65 78 74 0d 20 20 70 75 | 74 20 46 41 4c 53 45 20 |ext.  pu|t FALSE |
|00000350| 69 6e 74 6f 20 44 6f 67 | 44 6f 6e 65 0d 20 20 70 |into Dog|Done.  p|
|00000360| 75 70 70 65 74 53 70 72 | 69 74 65 20 50 4f 49 4e |uppetSpr|ite POIN|
|00000370| 54 45 52 2c 20 54 52 55 | 45 0d 20 20 70 75 74 20 |TER, TRU|E.  put |
|00000380| 70 65 72 69 6f 64 20 69 | 6e 74 6f 20 54 69 6d 65 |period i|nto Time|
|00000390| 50 65 72 69 6f 64 0d 20 | 20 53 65 74 20 74 68 65 |Period. | Set the|
|000003a0| 20 43 61 73 74 4e 75 6d | 20 6f 66 20 73 70 72 69 | CastNum| of spri|
|000003b0| 74 65 20 44 55 44 45 20 | 3d 20 74 68 65 20 6e 75 |te DUDE |= the nu|
|000003c0| 6d 62 65 72 20 6f 66 20 | 63 61 73 74 20 22 46 69 |mber of |cast "Fi|
|000003d0| 72 73 74 20 44 75 64 65 | 22 20 2b 20 54 69 6d 65 |rst Dude|" + Time|
|000003e0| 50 65 72 69 6f 64 20 2d | 31 0d 20 20 53 65 74 20 |Period -|1.  Set |
|000003f0| 74 68 65 20 43 61 73 74 | 4e 75 6d 20 6f 66 20 73 |the Cast|Num of s|
|00000400| 70 72 69 74 65 20 74 68 | 65 54 65 78 74 20 3d 20 |prite th|eText = |
|00000410| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 63 61 |the numb|er of ca|
|00000420| 73 74 20 22 46 69 72 73 | 74 74 65 78 74 22 20 2b |st "Firs|ttext" +|
|00000430| 20 54 69 6d 65 50 65 72 | 69 6f 64 20 2d 31 0d 20 | TimePer|iod -1. |
|00000440| 20 53 65 74 20 74 68 65 | 20 4c 6f 63 48 20 6f 66 | Set the| LocH of|
|00000450| 20 73 70 72 69 74 65 20 | 50 4f 49 4e 54 45 52 20 | sprite |POINTER |
|00000460| 3d 20 28 4c 65 66 74 4f | 66 66 73 65 74 20 2b 20 |= (LeftO|ffset + |
|00000470| 28 54 69 6d 65 50 65 72 | 69 6f 64 2d 31 29 2a 53 |(TimePer|iod-1)*S|
|00000480| 65 67 4c 65 6e 67 74 68 | 29 20 2b 20 28 53 65 67 |egLength|) + (Seg|
|00000490| 4c 65 6e 67 74 68 2f 32 | 29 0d 20 20 53 65 74 20 |Length/2|).  Set |
|000004a0| 74 68 65 20 63 61 73 74 | 4e 75 6d 20 6f 66 20 73 |the cast|Num of s|
|000004b0| 70 72 69 74 65 20 32 20 | 3d 20 28 28 74 68 65 20 |prite 2 |= ((the |
|000004c0| 6e 75 6d 62 65 72 20 6f | 66 20 63 61 73 74 20 22 |number o|f cast "|
|000004d0| 46 69 72 73 74 20 57 61 | 74 65 72 22 29 20 2b 20 |First Wa|ter") + |
|000004e0| 54 69 6d 65 50 65 72 69 | 6f 64 20 2d 20 31 29 0d |TimePeri|od - 1).|
|000004f0| 20 20 53 65 74 20 74 68 | 65 20 63 61 73 74 4e 75 |  Set th|e castNu|
|00000500| 6d 20 6f 66 20 73 70 72 | 69 74 65 20 33 20 3d 20 |m of spr|ite 3 = |
|00000510| 28 28 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |((the nu|mber of |
|00000520| 63 61 73 74 20 22 46 69 | 72 73 74 20 46 6c 79 22 |cast "Fi|rst Fly"|
|00000530| 29 20 2b 20 54 69 6d 65 | 50 65 72 69 6f 64 20 2d |) + Time|Period -|
|00000540| 20 31 29 0d 20 20 53 65 | 74 20 74 68 65 20 63 61 | 1).  Se|t the ca|
|00000550| 73 74 4e 75 6d 20 6f 66 | 20 73 70 72 69 74 65 20 |stNum of| sprite |
|00000560| 34 20 3d 20 28 28 74 68 | 65 20 6e 75 6d 62 65 72 |4 = ((th|e number|
|00000570| 20 6f 66 20 63 61 73 74 | 20 22 46 69 72 73 74 20 | of cast| "First |
|00000580| 48 6f 75 73 65 22 29 20 | 2b 20 54 69 6d 65 50 65 |House") |+ TimePe|
|00000590| 72 69 6f 64 20 2d 20 31 | 29 0d 20 20 53 65 74 20 |riod - 1|).  Set |
|000005a0| 74 68 65 20 63 61 73 74 | 4e 75 6d 20 6f 66 20 73 |the cast|Num of s|
|000005b0| 70 72 69 74 65 20 35 20 | 3d 20 28 28 74 68 65 20 |prite 5 |= ((the |
|000005c0| 6e 75 6d 62 65 72 20 6f | 66 20 63 61 73 74 20 22 |number o|f cast "|
|000005d0| 46 69 72 73 74 20 54 72 | 61 6e 73 22 29 20 2b 20 |First Tr|ans") + |
|000005e0| 54 69 6d 65 50 65 72 69 | 6f 64 20 2d 20 31 29 0d |TimePeri|od - 1).|
|000005f0| 20 20 75 70 64 61 74 65 | 53 74 61 67 65 0d 20 20 |  update|Stage.  |
|00000600| 77 61 69 74 46 6f 72 20 | 2e 37 35 0d 65 6e 64 20 |waitFor |.75.end |
|00000610| 50 65 72 69 6f 64 44 65 | 6d 6f 0d 0d 4f 6e 20 63 |PeriodDe|mo..On c|
|00000620| 6c 69 63 6b 50 65 72 69 | 6f 64 0d 20 20 47 6c 6f |lickPeri|od.  Glo|
|00000630| 62 61 6c 20 50 4f 49 4e | 54 45 52 2c 53 65 67 4c |bal POIN|TER,SegL|
|00000640| 65 6e 67 74 68 2c 4c 65 | 66 74 4f 66 66 73 65 74 |ength,Le|ftOffset|
|00000650| 2c 54 69 6d 65 50 65 72 | 69 6f 64 2c 44 55 44 45 |,TimePer|iod,DUDE|
|00000660| 2c 44 6f 67 44 6f 6e 65 | 2c 74 68 65 54 65 78 74 |,DogDone|,theText|
|00000670| 0d 20 20 70 75 74 20 46 | 41 4c 53 45 20 69 6e 74 |.  put F|ALSE int|
|00000680| 6f 20 44 6f 67 44 6f 6e | 65 0d 20 20 50 75 74 20 |o DogDon|e.  Put |
|00000690| 28 28 28 74 68 65 20 6d | 6f 75 73 65 48 29 20 2d |(((the m|ouseH) -|
|000006a0| 20 4c 65 66 74 4f 66 66 | 73 65 74 29 2f 53 65 67 | LeftOff|set)/Seg|
|000006b0| 4c 65 6e 67 74 68 29 20 | 2b 20 31 20 69 6e 74 6f |Length) |+ 1 into|
|000006c0| 20 54 65 6d 70 50 65 72 | 69 6f 64 0d 20 20 69 66 | TempPer|iod.  if|
|000006d0| 20 54 69 6d 65 50 65 72 | 69 6f 64 20 3c 3e 20 54 | TimePer|iod <> T|
|000006e0| 65 6d 70 50 65 72 69 6f | 64 20 74 68 65 6e 0d 20 |empPerio|d then. |
|000006f0| 20 20 20 70 75 74 20 54 | 65 6d 70 50 65 72 69 6f |   put T|empPerio|
|00000700| 64 20 69 6e 74 6f 20 54 | 69 6d 65 50 65 72 69 6f |d into T|imePerio|
|00000710| 64 0d 20 20 20 20 53 65 | 74 20 74 68 65 20 43 61 |d.    Se|t the Ca|
|00000720| 73 74 4e 75 6d 20 6f 66 | 20 73 70 72 69 74 65 20 |stNum of| sprite |
|00000730| 44 55 44 45 20 3d 20 74 | 68 65 20 6e 75 6d 62 65 |DUDE = t|he numbe|
|00000740| 72 20 6f 66 20 63 61 73 | 74 20 22 46 69 72 73 74 |r of cas|t "First|
|00000750| 20 44 75 64 65 22 20 2b | 20 54 69 6d 65 50 65 72 | Dude" +| TimePer|
|00000760| 69 6f 64 20 2d 31 0d 20 | 20 20 20 53 65 74 20 74 |iod -1. |   Set t|
|00000770| 68 65 20 43 61 73 74 4e | 75 6d 20 6f 66 20 73 70 |he CastN|um of sp|
|00000780| 72 69 74 65 20 74 68 65 | 54 65 78 74 20 3d 20 74 |rite the|Text = t|
|00000790| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 63 61 73 |he numbe|r of cas|
|000007a0| 74 20 22 46 69 72 73 74 | 74 65 78 74 22 20 2b 20 |t "First|text" + |
|000007b0| 54 69 6d 65 50 65 72 69 | 6f 64 20 2d 31 0d 20 20 |TimePeri|od -1.  |
|000007c0| 65 6e 64 20 69 66 0d 20 | 20 2d 2d 53 65 74 20 74 |end if. | --Set t|
|000007d0| 68 65 20 4c 6f 63 48 20 | 6f 66 20 73 70 72 69 74 |he LocH |of sprit|
|000007e0| 65 20 50 4f 49 4e 54 45 | 52 20 3d 20 74 68 65 20 |e POINTE|R = the |
|000007f0| 6d 6f 75 73 65 48 0d 20 | 20 2d 2d 75 70 64 61 74 |mouseH. | --updat|
|00000800| 65 53 74 61 67 65 0d 20 | 20 6c 6f 63 61 74 69 6f |eStage. | locatio|
|00000810| 6e 0d 65 6e 64 20 63 6c | 69 63 6b 50 65 72 69 6f |n.end cl|ickPerio|
|00000820| 64 0d 0d 0d 4f 6e 20 6c | 6f 63 61 74 69 6f 6e 0d |d...On l|ocation.|
|00000830| 20 20 47 6c 6f 62 61 6c | 20 50 4f 49 4e 54 45 52 |  Global| POINTER|
|00000840| 2c 53 65 67 4c 65 6e 67 | 74 68 2c 4c 65 66 74 4f |,SegLeng|th,LeftO|
|00000850| 66 66 73 65 74 2c 54 69 | 6d 65 50 65 72 69 6f 64 |ffset,Ti|mePeriod|
|00000860| 2c 44 55 44 45 0d 20 20 | 49 66 20 54 69 6d 65 50 |,DUDE.  |If TimeP|
|00000870| 65 72 69 6f 64 20 3e 20 | 31 31 20 74 68 65 6e 0d |eriod > |11 then.|
|00000880| 20 20 20 20 70 75 74 20 | 31 31 20 69 6e 74 6f 20 |    put |11 into |
|00000890| 54 69 6d 65 50 65 72 69 | 6f 64 0d 20 20 20 20 53 |TimePeri|od.    S|
|000008a0| 65 74 20 74 68 65 20 4c | 6f 63 48 20 6f 66 20 73 |et the L|ocH of s|
|000008b0| 70 72 69 74 65 20 50 4f | 49 4e 54 45 52 20 3d 20 |prite PO|INTER = |
|000008c0| 28 4c 65 66 74 4f 66 66 | 73 65 74 20 2b 20 28 54 |(LeftOff|set + (T|
|000008d0| 69 6d 65 50 65 72 69 6f | 64 2d 31 29 2a 53 65 67 |imePerio|d-1)*Seg|
|000008e0| 4c 65 6e 67 74 68 29 20 | 2b 20 28 53 65 67 4c 65 |Length) |+ (SegLe|
|000008f0| 6e 67 74 68 2f 32 29 0d | 20 20 20 20 53 65 74 20 |ngth/2).|    Set |
|00000900| 74 68 65 20 43 61 73 74 | 4e 75 6d 20 6f 66 20 73 |the Cast|Num of s|
|00000910| 70 72 69 74 65 20 44 55 | 44 45 20 3d 20 74 68 65 |prite DU|DE = the|
|00000920| 20 6e 75 6d 62 65 72 20 | 6f 66 20 63 61 73 74 20 | number |of cast |
|00000930| 22 46 69 72 73 74 20 44 | 75 64 65 22 20 2b 20 54 |"First D|ude" + T|
|00000940| 69 6d 65 50 65 72 69 6f | 64 20 2d 31 0d 20 20 20 |imePerio|d -1.   |
|00000950| 20 75 70 64 61 74 65 53 | 74 61 67 65 0d 20 20 65 | updateS|tage.  e|
|00000960| 6c 73 65 0d 20 20 20 20 | 53 65 74 20 74 68 65 20 |lse.    |Set the |
|00000970| 4c 6f 63 48 20 6f 66 20 | 73 70 72 69 74 65 20 50 |LocH of |sprite P|
|00000980| 4f 49 4e 54 45 52 20 3d | 20 28 4c 65 66 74 4f 66 |OINTER =| (LeftOf|
|00000990| 66 73 65 74 20 2b 20 28 | 54 69 6d 65 50 65 72 69 |fset + (|TimePeri|
|000009a0| 6f 64 2d 31 29 2a 53 65 | 67 4c 65 6e 67 74 68 29 |od-1)*Se|gLength)|
|000009b0| 20 2b 20 28 53 65 67 4c | 65 6e 67 74 68 2f 32 29 | + (SegL|ength/2)|
|000009c0| 0d 20 20 20 20 75 70 64 | 61 74 65 53 74 61 67 65 |.    upd|ateStage|
|000009d0| 0d 20 20 45 6e 64 20 69 | 66 0d 65 6e 64 20 6c 6f |.  End i|f.end lo|
|000009e0| 63 61 74 69 6f 6e 0d 0d | 0d 4f 6e 20 44 6f 54 68 |cation..|.On DoTh|
|000009f0| 65 44 6f 67 0d 20 20 47 | 6c 6f 62 61 6c 20 54 69 |eDog.  G|lobal Ti|
|00000a00| 6d 65 50 65 72 69 6f 64 | 2c 53 6f 75 6e 64 50 65 |mePeriod|,SoundPe|
|00000a10| 72 69 6f 64 41 72 72 61 | 79 2c 44 6f 67 44 6f 6e |riodArra|y,DogDon|
|00000a20| 65 2c 44 55 44 45 0d 20 | 20 69 66 20 44 6f 67 44 |e,DUDE. | if DogD|
|00000a30| 6f 6e 65 20 3d 20 46 41 | 4c 53 45 20 74 68 65 6e |one = FA|LSE then|
|00000a40| 0d 20 20 20 20 0d 20 20 | 20 20 70 75 74 20 53 6f |.    .  |  put So|
|00000a50| 75 6e 64 50 65 72 69 6f | 64 41 72 72 61 79 28 6d |undPerio|dArray(m|
|00000a60| 47 65 74 2c 54 69 6d 65 | 50 65 72 69 6f 64 29 20 |Get,Time|Period) |
|00000a70| 69 6e 74 6f 20 54 69 6d | 65 53 6f 75 6e 64 0d 20 |into Tim|eSound. |
|00000a80| 20 20 20 70 75 74 20 22 | 31 22 20 61 66 74 65 72 |   put "|1" after|
|00000a90| 20 54 69 6d 65 53 6f 75 | 6e 64 0d 20 20 20 20 70 | TimeSou|nd.    p|
|00000aa0| 75 70 70 65 74 53 6f 75 | 6e 64 20 54 69 6d 65 53 |uppetSou|nd TimeS|
|00000ab0| 6f 75 6e 64 20 0d 20 20 | 65 6e 64 20 69 66 0d 20 |ound .  |end if. |
|00000ac0| 20 0d 20 20 72 65 70 65 | 61 74 20 77 68 69 6c 65 | .  repe|at while|
|00000ad0| 20 74 68 65 20 6d 6f 75 | 73 65 44 6f 77 6e 0d 20 | the mou|seDown. |
|00000ae0| 20 20 20 73 65 74 20 74 | 68 65 20 4c 6f 63 48 20 |   set t|he LocH |
|00000af0| 6f 66 20 73 70 72 69 74 | 65 20 44 55 44 45 20 3d |of sprit|e DUDE =|
|00000b00| 20 74 68 65 20 6d 6f 75 | 73 65 48 0d 20 20 20 20 | the mou|seH.    |
|00000b10| 53 65 74 20 74 68 65 20 | 4c 6f 63 56 20 6f 66 20 |Set the |LocV of |
|00000b20| 73 70 72 69 74 65 20 44 | 55 44 45 20 3d 20 74 68 |sprite D|UDE = th|
|00000b30| 65 20 6d 6f 75 73 65 56 | 0d 20 20 20 20 55 70 64 |e mouseV|.    Upd|
|00000b40| 61 74 65 53 54 61 67 65 | 0d 20 20 65 6e 64 20 72 |ateSTage|.  end r|
|00000b50| 65 70 65 61 74 0d 20 20 | 0d 65 6e 64 20 44 6f 54 |epeat.  |.end DoT|
|00000b60| 68 65 44 6f 67 0d 0d 4f | 6e 20 44 6f 43 68 61 6e |heDog..O|n DoChan|
|00000b70| 67 65 20 53 70 72 69 74 | 65 4e 75 6d 2c 20 42 61 |ge Sprit|eNum, Ba|
|00000b80| 73 65 43 61 73 74 0d 20 | 20 47 6c 6f 62 61 6c 20 |seCast. | Global |
|00000b90| 54 69 6d 65 50 65 72 69 | 6f 64 2c 53 6f 75 6e 64 |TimePeri|od,Sound|
|00000ba0| 50 65 72 69 6f 64 41 72 | 72 61 79 0d 20 20 69 66 |PeriodAr|ray.  if|
|00000bb0| 20 54 69 6d 65 50 65 72 | 69 6f 64 20 3c 31 32 20 | TimePer|iod <12 |
|00000bc0| 74 68 65 6e 20 0d 20 20 | 20 20 53 65 74 20 74 68 |then .  |  Set th|
|00000bd0| 65 20 63 61 73 74 4e 75 | 6d 20 6f 66 20 73 70 72 |e castNu|m of spr|
|00000be0| 69 74 65 20 28 53 70 72 | 69 74 65 4e 75 6d 29 20 |ite (Spr|iteNum) |
|00000bf0| 3d 20 28 28 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |= ((the |number o|
|00000c00| 66 20 63 61 73 74 20 42 | 61 73 65 43 61 73 74 29 |f cast B|aseCast)|
|00000c10| 20 2b 20 54 69 6d 65 50 | 65 72 69 6f 64 20 2d 20 | + TimeP|eriod - |
|00000c20| 31 29 0d 20 20 20 20 75 | 70 64 61 74 65 53 74 61 |1).    u|pdateSta|
|00000c30| 67 65 0d 20 20 20 20 70 | 75 74 20 53 6f 75 6e 64 |ge.    p|ut Sound|
|00000c40| 50 65 72 69 6f 64 41 72 | 72 61 79 28 6d 47 65 74 |PeriodAr|ray(mGet|
|00000c50| 2c 54 69 6d 65 50 65 72 | 69 6f 64 29 20 69 6e 74 |,TimePer|iod) int|
|00000c60| 6f 20 54 69 6d 65 53 6f | 75 6e 64 0d 20 20 20 20 |o TimeSo|und.    |
|00000c70| 69 66 20 42 61 73 65 43 | 61 73 74 20 3d 20 22 46 |if BaseC|ast = "F|
|00000c80| 69 72 73 74 20 54 72 61 | 6e 73 22 20 74 68 65 6e |irst Tra|ns" then|
|00000c90| 20 70 75 74 20 22 33 22 | 20 61 66 74 65 72 20 54 | put "3"| after T|
|00000ca0| 69 6d 65 53 6f 75 6e 64 | 0d 20 20 20 20 69 66 20 |imeSound|.    if |
|00000cb0| 42 61 73 65 43 61 73 74 | 20 3d 20 22 46 69 72 73 |BaseCast| = "Firs|
|00000cc0| 74 20 48 6f 75 73 65 22 | 20 74 68 65 6e 20 70 75 |t House"| then pu|
|00000cd0| 74 20 22 35 22 20 61 66 | 74 65 72 20 54 69 6d 65 |t "5" af|ter Time|
|00000ce0| 53 6f 75 6e 64 0d 20 20 | 20 20 69 66 20 42 61 73 |Sound.  |  if Bas|
|00000cf0| 65 43 61 73 74 20 3d 20 | 22 46 69 72 73 74 20 46 |eCast = |"First F|
|00000d00| 6c 79 22 20 74 68 65 6e | 20 70 75 74 20 22 32 22 |ly" then| put "2"|
|00000d10| 20 61 66 74 65 72 20 54 | 69 6d 65 53 6f 75 6e 64 | after T|imeSound|
|00000d20| 0d 20 20 20 20 69 66 20 | 42 61 73 65 43 61 73 74 |.    if |BaseCast|
|00000d30| 20 3d 20 22 46 69 72 73 | 74 20 57 61 74 65 72 22 | = "Firs|t Water"|
|00000d40| 20 74 68 65 6e 20 70 75 | 74 20 22 34 22 20 61 66 | then pu|t "4" af|
|00000d50| 74 65 72 20 54 69 6d 65 | 53 6f 75 6e 64 0d 20 20 |ter Time|Sound.  |
|00000d60| 20 20 2d 2d 70 75 70 70 | 65 74 53 6f 75 6e 64 20 |  --pupp|etSound |
|00000d70| 54 69 6d 65 53 6f 75 6e | 64 0d 20 20 65 6c 73 65 |TimeSoun|d.  else|
|00000d80| 0d 20 20 20 20 6e 6f 74 | 68 69 6e 67 0d 20 20 65 |.    not|hing.  e|
|00000d90| 6e 64 20 69 66 0d 20 20 | 0d 65 6e 64 20 44 6f 43 |nd if.  |.end DoC|
|00000da0| 68 61 6e 67 65 0d 0d 0d | 0d 4f 6e 20 69 6e 69 74 |hange...|.On init|
|00000db0| 50 61 72 6b 0d 20 20 47 | 6c 6f 62 61 6c 20 50 4f |Park.  G|lobal PO|
|00000dc0| 49 4e 54 45 52 2c 54 49 | 4d 45 43 48 41 4e 2c 4e |INTER,TI|MECHAN,N|
|00000dd0| 6f 54 69 6d 65 53 65 67 | 2c 4c 65 66 74 4f 66 66 |oTimeSeg|,LeftOff|
|00000de0| 73 65 74 2c 53 65 67 4c | 65 6e 67 74 68 2c 20 54 |set,SegL|ength, T|
|00000df0| 68 65 54 65 78 74 0d 20 | 20 0d 20 20 47 6c 6f 62 |heText. | .  Glob|
|00000e00| 61 6c 20 44 55 44 45 2c | 57 41 54 45 52 2c 54 52 |al DUDE,|WATER,TR|
|00000e10| 41 4e 53 2c 46 4c 59 43 | 48 41 4e 2c 48 4f 55 53 |ANS,FLYC|HAN,HOUS|
|00000e20| 45 43 48 41 4e 2c 53 6f | 75 6e 64 50 65 72 69 6f |ECHAN,So|undPerio|
|00000e30| 64 41 72 72 61 79 2c 54 | 69 6d 65 50 65 72 69 6f |dArray,T|imePerio|
|00000e40| 64 2c 44 6f 67 44 6f 6e | 65 0d 20 20 0d 20 20 70 |d,DogDon|e.  .  p|
|00000e50| 75 74 20 39 20 69 6e 74 | 6f 20 54 69 6d 65 50 65 |ut 9 int|o TimePe|
|00000e60| 72 69 6f 64 0d 20 20 70 | 75 74 20 46 41 4c 53 45 |riod.  p|ut FALSE|
|00000e70| 20 69 6e 74 6f 20 44 6f | 67 44 6f 6e 65 0d 20 20 | into Do|gDone.  |
|00000e80| 53 65 74 20 70 75 70 70 | 65 74 53 6f 75 6e 64 3d |Set pupp|etSound=|
|00000e90| 31 0d 20 20 73 65 74 20 | 53 6f 75 6e 64 50 65 72 |1.  set |SoundPer|
|00000ea0| 69 6f 64 41 72 72 61 79 | 20 3d 20 41 72 72 61 79 |iodArray| = Array|
|00000eb0| 28 6d 4e 65 77 29 0d 20 | 20 4c 6f 61 64 53 50 65 |(mNew). | LoadSPe|
|00000ec0| 72 69 6f 64 0d 20 20 70 | 75 74 20 31 31 20 69 6e |riod.  p|ut 11 in|
|00000ed0| 74 6f 20 4e 6f 54 69 6d | 65 53 65 67 0d 20 20 0d |to NoTim|eSeg.  .|
|00000ee0| 20 20 70 75 74 20 31 37 | 20 69 6e 74 6f 20 44 55 |  put 17| into DU|
|00000ef0| 44 45 0d 20 20 70 75 74 | 20 32 20 69 6e 74 6f 20 |DE.  put| 2 into |
|00000f00| 57 41 54 45 52 0d 20 20 | 70 75 74 20 35 20 69 6e |WATER.  |put 5 in|
|00000f10| 74 6f 20 54 52 41 4e 53 | 0d 20 20 70 75 74 20 33 |to TRANS|.  put 3|
|00000f20| 20 69 6e 74 6f 20 46 4c | 59 43 48 41 4e 0d 20 20 | into FL|YCHAN.  |
|00000f30| 70 75 74 20 34 20 69 6e | 74 6f 20 48 4f 55 53 45 |put 4 in|to HOUSE|
|00000f40| 43 48 41 4e 0d 20 20 70 | 75 74 20 32 30 20 69 6e |CHAN.  p|ut 20 in|
|00000f50| 74 6f 20 54 68 65 54 65 | 78 74 0d 20 20 0d 20 20 |to TheTe|xt.  .  |
|00000f60| 70 75 74 20 32 32 20 69 | 6e 74 6f 20 54 49 4d 45 |put 22 i|nto TIME|
|00000f70| 43 48 41 4e 0d 20 20 70 | 75 74 20 32 34 20 69 6e |CHAN.  p|ut 24 in|
|00000f80| 74 6f 20 50 4f 49 4e 54 | 45 52 0d 20 20 0d 20 20 |to POINT|ER.  .  |
|00000f90| 70 75 74 20 74 68 65 20 | 6c 65 66 74 20 6f 66 20 |put the |left of |
|00000fa0| 73 70 72 69 74 65 20 54 | 49 4d 45 43 48 41 4e 20 |sprite T|IMECHAN |
|00000fb0| 69 6e 74 6f 20 4c 65 66 | 74 4f 66 66 73 65 74 0d |into Lef|tOffset.|
|00000fc0| 20 20 70 75 74 20 74 68 | 65 20 52 69 67 68 74 20 |  put th|e Right |
|00000fd0| 6f 66 20 73 70 72 69 74 | 65 20 54 49 4d 45 43 48 |of sprit|e TIMECH|
|00000fe0| 41 4e 20 2d 20 4c 65 66 | 74 4f 66 66 73 65 74 20 |AN - Lef|tOffset |
|00000ff0| 69 6e 74 6f 20 6c 65 6e | 67 68 74 0d 20 20 70 75 |into len|ght.  pu|
|00001000| 74 20 6c 65 6e 67 68 74 | 2f 4e 6f 54 69 6d 65 53 |t lenght|/NoTimeS|
|00001010| 65 67 20 69 6e 74 6f 20 | 53 65 67 4c 65 6e 67 74 |eg into |SegLengt|
|00001020| 68 0d 20 20 0d 20 20 53 | 65 74 20 74 68 65 20 63 |h.  .  S|et the c|
|00001030| 6f 6e 73 74 72 61 69 6e | 74 20 6f 66 20 73 70 72 |onstrain|t of spr|
|00001040| 69 74 65 20 50 4f 49 4e | 54 45 52 20 74 6f 20 32 |ite POIN|TER to 2|
|00001050| 33 0d 20 20 53 65 74 20 | 74 68 65 20 70 75 70 70 |3.  Set |the pupp|
|00001060| 65 74 20 6f 66 20 73 70 | 72 69 74 65 20 54 68 65 |et of sp|rite The|
|00001070| 54 65 78 74 20 3d 20 54 | 52 55 45 0d 20 20 53 65 |Text = T|RUE.  Se|
|00001080| 74 20 74 68 65 20 70 75 | 70 70 65 74 20 6f 66 20 |t the pu|ppet of |
|00001090| 73 70 72 69 74 65 20 50 | 4f 49 4e 54 45 52 20 3d |sprite P|OINTER =|
|000010a0| 20 54 52 55 45 0d 20 20 | 73 65 74 20 74 68 65 20 | TRUE.  |set the |
|000010b0| 69 6d 6d 65 64 69 61 74 | 65 20 6f 66 20 73 70 72 |immediat|e of spr|
|000010c0| 69 74 65 20 32 34 20 3d | 20 74 72 75 65 0d 20 20 |ite 24 =| true.  |
|000010d0| 53 65 74 20 74 68 65 20 | 70 75 70 70 65 74 20 6f |Set the |puppet o|
|000010e0| 66 20 73 70 72 69 74 65 | 20 44 55 44 45 20 3d 20 |f sprite| DUDE = |
|000010f0| 54 52 55 45 0d 20 20 53 | 65 74 20 74 68 65 20 70 |TRUE.  S|et the p|
|00001100| 75 70 70 65 74 20 6f 66 | 20 73 70 72 69 74 65 20 |uppet of| sprite |
|00001110| 57 41 54 45 52 20 3d 20 | 54 52 55 45 0d 20 20 53 |WATER = |TRUE.  S|
|00001120| 65 74 20 74 68 65 20 70 | 75 70 70 65 74 20 6f 66 |et the p|uppet of|
|00001130| 20 73 70 72 69 74 65 20 | 54 52 41 4e 53 20 3d 20 | sprite |TRANS = |
|00001140| 54 52 55 45 0d 20 20 53 | 65 74 20 74 68 65 20 70 |TRUE.  S|et the p|
|00001150| 75 70 70 65 74 20 6f 66 | 20 73 70 72 69 74 65 20 |uppet of| sprite |
|00001160| 46 4c 59 43 48 41 4e 20 | 3d 20 54 52 55 45 0d 20 |FLYCHAN |= TRUE. |
|00001170| 20 53 65 74 20 74 68 65 | 20 70 75 70 70 65 74 20 | Set the| puppet |
|00001180| 6f 66 20 73 70 72 69 74 | 65 20 48 4f 55 53 45 43 |of sprit|e HOUSEC|
|00001190| 48 41 4e 20 3d 20 54 52 | 55 45 0d 20 20 53 65 74 |HAN = TR|UE.  Set|
|000011a0| 20 74 68 65 20 69 6d 6d | 65 64 69 61 74 65 20 6f | the imm|ediate o|
|000011b0| 66 20 73 70 72 69 74 65 | 20 44 55 44 45 20 3d 20 |f sprite| DUDE = |
|000011c0| 54 52 55 45 0d 20 20 50 | 75 74 20 28 28 28 74 68 |TRUE.  P|ut (((th|
|000011d0| 65 20 4c 6f 63 48 20 6f | 66 20 73 70 72 69 74 65 |e LocH o|f sprite|
|000011e0| 20 50 4f 49 4e 54 45 52 | 29 20 2d 20 4c 65 66 74 | POINTER|) - Left|
|000011f0| 4f 66 66 73 65 74 29 2f | 53 65 67 4c 65 6e 67 74 |Offset)/|SegLengt|
|00001200| 68 29 20 2b 20 31 20 69 | 6e 74 6f 20 54 69 6d 65 |h) + 1 i|nto Time|
|00001210| 50 65 72 69 6f 64 0d 20 | 20 69 66 20 31 31 3c 54 |Period. | if 11<T|
|00001220| 69 6d 65 50 65 72 69 6f | 64 20 74 68 65 6e 0d 20 |imePerio|d then. |
|00001230| 20 20 20 70 75 74 20 31 | 30 20 69 6e 74 6f 20 54 |   put 1|0 into T|
|00001240| 69 6d 65 50 65 72 69 6f | 64 0d 20 20 65 6e 64 20 |imePerio|d.  end |
|00001250| 69 66 0d 20 20 53 65 74 | 20 74 68 65 20 63 61 73 |if.  Set| the cas|
|00001260| 74 4e 75 6d 20 6f 66 20 | 73 70 72 69 74 65 20 44 |tNum of |sprite D|
|00001270| 55 44 45 20 3d 20 28 28 | 74 68 65 20 6e 75 6d 62 |UDE = ((|the numb|
|00001280| 65 72 20 6f 66 20 63 61 | 73 74 20 22 66 69 72 73 |er of ca|st "firs|
|00001290| 74 20 44 75 64 65 22 29 | 20 2b 20 54 69 6d 65 50 |t Dude")| + TimeP|
|000012a0| 65 72 69 6f 64 20 2d 20 | 31 29 0d 20 20 53 65 74 |eriod - |1).  Set|
|000012b0| 20 74 68 65 20 63 61 73 | 74 4e 75 6d 20 6f 66 20 | the cas|tNum of |
|000012c0| 73 70 72 69 74 65 20 74 | 68 65 54 65 78 74 20 3d |sprite t|heText =|
|000012d0| 20 28 28 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 | ((the n|umber of|
|000012e0| 20 63 61 73 74 20 22 66 | 69 72 73 74 74 65 78 74 | cast "f|irsttext|
|000012f0| 22 29 20 2b 20 54 69 6d | 65 50 65 72 69 6f 64 20 |") + Tim|ePeriod |
|00001300| 2d 20 31 29 0d 65 6e 64 | 20 69 6e 69 74 50 61 72 |- 1).end| initPar|
|00001310| 6b 0d 0d 4f 6e 20 49 6e | 69 74 32 0d 20 20 47 6c |k..On In|it2.  Gl|
|00001320| 6f 62 61 6c 20 53 63 72 | 65 65 6e 4e 75 6d 2c 4f |obal Scr|eenNum,O|
|00001330| 76 65 72 61 6c 6c 42 75 | 64 2c 54 68 69 73 42 75 |verallBu|d,ThisBu|
|00001340| 64 0d 20 20 69 66 20 4f | 62 6a 65 63 74 50 28 4f |d.  if O|bjectP(O|
|00001350| 76 65 72 61 6c 6c 42 75 | 64 29 20 3d 20 46 41 4c |verallBu|d) = FAL|
|00001360| 53 45 20 74 68 65 6e 20 | 65 78 69 74 0d 20 20 70 |SE then |exit.  p|
|00001370| 75 74 20 32 20 69 6e 74 | 6f 20 53 63 72 65 65 6e |ut 2 int|o Screen|
|00001380| 4e 75 6d 0d 20 20 70 75 | 74 20 4f 76 65 72 61 6c |Num.  pu|t Overal|
|00001390| 6c 42 75 64 28 6d 47 65 | 74 2c 53 63 72 65 65 6e |lBud(mGe|t,Screen|
|000013a0| 4e 75 6d 29 20 69 6e 74 | 6f 20 54 68 69 73 42 75 |Num) int|o ThisBu|
|000013b0| 64 0d 65 6e 64 20 49 6e | 69 74 32 0d 0d 4f 6e 20 |d.end In|it2..On |
|000013c0| 6c 6f 61 64 53 50 65 72 | 69 6f 64 0d 20 20 47 6c |loadSPer|iod.  Gl|
|000013d0| 6f 62 61 6c 20 53 6f 75 | 6e 64 50 65 72 69 6f 64 |obal Sou|ndPeriod|
|000013e0| 41 72 72 61 79 0d 20 20 | 53 6f 75 6e 64 50 65 72 |Array.  |SoundPer|
|000013f0| 69 6f 64 41 72 72 61 79 | 28 6d 50 75 74 2c 31 2c |iodArray|(mPut,1,|
|00001400| 22 50 4d 22 29 0d 20 20 | 53 6f 75 6e 64 50 65 72 |"PM").  |SoundPer|
|00001410| 69 6f 64 41 72 72 61 79 | 28 6d 50 75 74 2c 32 2c |iodArray|(mPut,2,|
|00001420| 22 45 4d 22 29 0d 20 20 | 53 6f 75 6e 64 50 65 72 |"EM").  |SoundPer|
|00001430| 69 6f 64 41 72 72 61 79 | 28 6d 50 75 74 2c 33 2c |iodArray|(mPut,3,|
|00001440| 22 61 65 22 29 0d 20 20 | 53 6f 75 6e 64 50 65 72 |"ae").  |SoundPer|
|00001450| 69 6f 64 41 72 72 61 79 | 28 6d 50 75 74 2c 34 2c |iodArray|(mPut,4,|
|00001460| 22 47 52 22 29 0d 20 20 | 53 6f 75 6e 64 50 65 72 |"GR").  |SoundPer|
|00001470| 69 6f 64 41 72 72 61 79 | 28 6d 50 75 74 2c 35 2c |iodArray|(mPut,5,|
|00001480| 22 4d 54 22 29 0d 20 20 | 53 6f 75 6e 64 50 65 72 |"MT").  |SoundPer|
|00001490| 69 6f 64 41 72 72 61 79 | 28 6d 50 75 74 2c 36 2c |iodArray|(mPut,6,|
|000014a0| 22 52 4e 22 29 0d 20 20 | 53 6f 75 6e 64 50 65 72 |"RN").  |SoundPer|
|000014b0| 69 6f 64 41 72 72 61 79 | 28 6d 50 75 74 2c 37 2c |iodArray|(mPut,7,|
|000014c0| 22 49 52 22 29 0d 20 20 | 53 6f 75 6e 64 50 65 72 |"IR").  |SoundPer|
|000014d0| 69 6f 64 41 72 72 61 79 | 28 6d 50 75 74 2c 38 2c |iodArray|(mPut,8,|
|000014e0| 22 43 57 22 29 0d 20 20 | 53 6f 75 6e 64 50 65 72 |"CW").  |SoundPer|
|000014f0| 69 6f 64 41 72 72 61 79 | 28 6d 50 75 74 2c 39 2c |iodArray|(mPut,9,|
|00001500| 22 48 49 22 29 0d 20 20 | 53 6f 75 6e 64 50 65 72 |"HI").  |SoundPer|
|00001510| 69 6f 64 41 72 72 61 79 | 28 6d 50 75 74 2c 31 30 |iodArray|(mPut,10|
|00001520| 2c 22 54 44 22 29 0d 20 | 20 53 6f 75 6e 64 50 65 |,"TD"). | SoundPe|
|00001530| 72 69 6f 64 41 72 72 61 | 79 28 6d 50 75 74 2c 31 |riodArra|y(mPut,1|
|00001540| 31 2c 22 46 54 22 29 0d | 65 6e 64 20 4c 6f 61 64 |1,"FT").|end Load|
|00001550| 53 50 65 72 69 6f 64 0d | 0d 4f 6e 20 42 75 64 53 |SPeriod.|.On BudS|
|00001560| 70 6f 74 74 69 6e 67 20 | 44 65 73 74 46 72 61 6d |potting |DestFram|
|00001570| 65 2c 42 75 64 54 79 70 | 65 0d 20 20 47 6c 6f 62 |e,BudTyp|e.  Glob|
|00001580| 61 6c 20 4d 41 58 53 50 | 4f 54 54 49 4e 47 53 2c |al MAXSP|OTTINGS,|
|00001590| 4e 75 6d 62 65 72 4f 66 | 53 70 6f 74 74 69 6e 67 |NumberOf|Spotting|
|000015a0| 73 2c 43 68 61 6e 63 65 | 53 70 6f 74 74 69 6e 67 |s,Chance|Spotting|
|000015b0| 2c 53 63 72 65 65 6e 4e | 75 6d 2c 54 68 69 73 42 |,ScreenN|um,ThisB|
|000015c0| 75 64 0d 20 20 69 66 20 | 4f 62 6a 65 63 74 50 28 |ud.  if |ObjectP(|
|000015d0| 4d 41 58 53 50 4f 54 54 | 49 4e 47 53 29 20 3d 20 |MAXSPOTT|INGS) = |
|000015e0| 46 41 4c 53 45 20 74 68 | 65 6e 20 65 78 69 74 0d |FALSE th|en exit.|
|000015f0| 20 20 69 66 20 4e 75 6d | 62 65 72 4f 66 53 70 6f |  if Num|berOfSpo|
|00001600| 74 74 69 6e 67 73 28 6d | 47 65 74 2c 53 63 72 65 |ttings(m|Get,Scre|
|00001610| 65 6e 4e 75 6d 29 20 3e | 3d 20 4d 41 58 53 50 4f |enNum) >|= MAXSPO|
|00001620| 54 54 49 4e 47 53 28 6d | 47 65 74 2c 53 63 72 65 |TTINGS(m|Get,Scre|
|00001630| 65 6e 4e 75 6d 29 20 74 | 68 65 6e 20 52 65 74 75 |enNum) t|hen Retu|
|00001640| 72 6e 20 46 41 4c 53 45 | 0d 20 20 69 66 20 54 68 |rn FALSE|.  if Th|
|00001650| 69 73 42 75 64 28 6d 47 | 65 74 2c 42 75 64 54 79 |isBud(mG|et,BudTy|
|00001660| 70 65 29 20 3d 20 54 52 | 55 45 20 74 68 65 6e 20 |pe) = TR|UE then |
|00001670| 52 65 74 75 72 6e 20 46 | 41 4c 53 45 0d 20 20 54 |Return F|ALSE.  T|
|00001680| 68 69 73 42 75 64 28 6d | 50 75 74 2c 42 75 64 54 |hisBud(m|Put,BudT|
|00001690| 79 70 65 2c 54 52 55 45 | 29 0d 20 20 4e 75 6d 62 |ype,TRUE|).  Numb|
|000016a0| 65 72 4f 66 53 70 6f 74 | 74 69 6e 67 73 28 6d 50 |erOfSpot|tings(mP|
|000016b0| 75 74 2c 53 63 72 65 65 | 6e 4e 75 6d 2c 28 4e 75 |ut,Scree|nNum,(Nu|
|000016c0| 6d 62 65 72 4f 66 53 70 | 6f 74 74 69 6e 67 73 28 |mberOfSp|ottings(|
|000016d0| 6d 47 65 74 2c 53 63 72 | 65 65 6e 4e 75 6d 29 20 |mGet,Scr|eenNum) |
|000016e0| 2b 20 31 29 29 0d 20 20 | 70 6c 61 79 20 66 72 61 |+ 1)).  |play fra|
|000016f0| 6d 65 20 64 65 73 74 46 | 72 61 6d 65 0d 20 20 69 |me destF|rame.  i|
|00001700| 66 20 43 68 65 63 6b 41 | 6c 6c 42 75 64 73 28 29 |f CheckA|llBuds()|
|00001710| 20 3d 20 54 52 55 45 20 | 74 68 65 6e 20 0d 20 20 | = TRUE |then .  |
|00001720| 20 20 72 65 70 65 61 74 | 20 77 69 74 68 20 69 6e |  repeat| with in|
|00001730| 64 65 78 20 3d 20 31 20 | 74 6f 20 32 34 0d 20 20 |dex = 1 |to 24.  |
|00001740| 20 20 20 20 70 75 70 70 | 65 74 53 70 72 69 74 65 |    pupp|etSprite|
|00001750| 20 69 6e 64 65 78 2c 30 | 0d 20 20 20 20 65 6e 64 | index,0|.    end|
|00001760| 20 72 65 70 65 61 74 0d | 20 20 20 20 67 6f 20 74 | repeat.|    go t|
|00001770| 6f 20 66 72 61 6d 65 20 | 22 45 6e 64 47 61 6d 65 |o frame |"EndGame|
|00001780| 22 0d 20 20 20 20 52 65 | 74 75 72 6e 20 54 52 55 |".    Re|turn TRU|
|00001790| 45 0d 20 20 65 6e 64 20 | 69 66 0d 20 20 0d 65 6e |E.  end |if.  .en|
|000017a0| 64 20 42 75 64 53 70 6f | 74 74 69 6e 67 0d 0d 0d |d BudSpo|tting...|
|000017b0| 4f 6e 20 43 68 65 63 6b | 41 6c 6c 42 75 64 73 0d |On Check|AllBuds.|
|000017c0| 20 20 47 6c 6f 62 61 6c | 20 4d 41 58 53 50 4f 54 |  Global| MAXSPOT|
|000017d0| 54 49 4e 47 53 2c 4e 75 | 6d 62 65 72 4f 66 53 70 |TINGS,Nu|mberOfSp|
|000017e0| 6f 74 74 69 6e 67 73 2c | 43 68 61 6e 63 65 53 70 |ottings,|ChanceSp|
|000017f0| 6f 74 74 69 6e 67 2c 53 | 63 72 65 65 6e 4e 75 6d |otting,S|creenNum|
|00001800| 2c 54 68 69 73 42 75 64 | 0d 20 20 72 65 70 65 61 |,ThisBud|.  repea|
|00001810| 74 20 77 69 74 68 20 69 | 6e 64 65 78 20 3d 20 31 |t with i|ndex = 1|
|00001820| 20 74 6f 20 38 0d 20 20 | 20 20 70 75 74 20 4e 75 | to 8.  |  put Nu|
|00001830| 6d 62 65 72 4f 66 53 70 | 6f 74 74 69 6e 67 73 28 |mberOfSp|ottings(|
|00001840| 6d 47 65 74 2c 49 6e 64 | 65 78 29 0d 20 20 20 20 |mGet,Ind|ex).    |
|00001850| 70 75 74 20 4d 41 58 53 | 50 4f 54 54 49 4e 47 53 |put MAXS|POTTINGS|
|00001860| 28 6d 47 65 74 2c 49 6e | 64 65 78 29 0d 20 20 20 |(mGet,In|dex).   |
|00001870| 20 0d 20 20 20 20 69 66 | 20 4e 75 6d 62 65 72 4f | .    if| NumberO|
|00001880| 66 53 70 6f 74 74 69 6e | 67 73 28 6d 47 65 74 2c |fSpottin|gs(mGet,|
|00001890| 49 6e 64 65 78 29 20 3c | 3e 20 4d 41 58 53 50 4f |Index) <|> MAXSPO|
|000018a0| 54 54 49 4e 47 53 28 6d | 47 65 74 2c 49 6e 64 65 |TTINGS(m|Get,Inde|
|000018b0| 78 29 20 74 68 65 6e 20 | 52 65 74 75 72 6e 20 46 |x) then |Return F|
|000018c0| 41 4c 53 45 0d 20 20 65 | 6e 64 20 72 65 70 65 61 |ALSE.  e|nd repea|
|000018d0| 74 0d 20 20 72 65 74 75 | 72 6e 20 54 52 55 45 0d |t.  retu|rn TRUE.|
|000018e0| 65 6e 64 20 43 68 65 63 | 6b 41 6c 6c 62 75 64 73 |end Chec|kAllbuds|
|000018f0| 0d 0d 4f 6e 20 45 6e 64 | 47 61 6d 65 54 65 73 74 |..On End|GameTest|
|00001900| 0d 20 20 47 6c 6f 62 61 | 6c 20 53 63 72 65 65 6e |.  Globa|l Screen|
|00001910| 4e 75 6d 2c 4d 41 58 53 | 50 4f 54 54 49 4e 47 53 |Num,MAXS|POTTINGS|
|00001920| 2c 4e 75 6d 62 65 72 6f | 66 53 70 6f 74 74 69 6e |,Numbero|fSpottin|
|00001930| 67 73 0d 20 20 52 65 70 | 65 61 74 20 77 69 74 68 |gs.  Rep|eat with|
|00001940| 20 69 6e 64 65 78 20 3d | 20 31 20 74 6f 20 38 0d | index =| 1 to 8.|
|00001950| 20 20 20 20 69 66 20 69 | 6e 64 65 78 20 3c 3e 20 |    if i|ndex <> |
|00001960| 53 63 72 65 65 6e 4e 75 | 6d 20 74 68 65 6e 0d 20 |ScreenNu|m then. |
|00001970| 20 20 20 20 20 4e 75 6d | 62 65 72 6f 66 53 70 6f |     Num|berofSpo|
|00001980| 74 74 69 6e 67 73 28 6d | 50 75 74 2c 69 6e 64 65 |ttings(m|Put,inde|
|00001990| 78 2c 4d 41 58 53 50 4f | 54 54 49 4e 47 53 28 6d |x,MAXSPO|TTINGS(m|
|000019a0| 47 65 74 2c 69 6e 64 65 | 78 29 29 0d 20 20 20 20 |Get,inde|x)).    |
|000019b0| 65 6e 64 20 69 66 0d 20 | 20 65 6e 64 20 72 65 70 |end if. | end rep|
|000019c0| 65 61 74 0d 65 6e 64 20 | 45 6e 64 47 61 6d 65 54 |eat.end |EndGameT|
|000019d0| 65 73 74 0d 0d 0d 6f 6e | 20 41 6c 6c 42 75 64 73 |est...on| AllBuds|
|000019e0| 0d 20 20 47 6c 6f 62 61 | 6c 20 54 68 69 73 42 75 |.  Globa|l ThisBu|
|000019f0| 64 2c 4e 75 6d 62 65 72 | 4f 66 53 70 6f 74 74 69 |d,Number|OfSpotti|
|00001a00| 6e 67 73 2c 4d 41 58 53 | 50 4f 54 54 49 4e 47 53 |ngs,MAXS|POTTINGS|
|00001a10| 2c 53 63 72 65 65 6e 4e | 75 6d 2c 4f 76 65 72 61 |,ScreenN|um,Overa|
|00001a20| 6c 6c 42 75 64 0d 20 20 | 52 65 70 65 61 74 20 77 |llBud.  |Repeat w|
|00001a30| 69 74 68 20 69 6e 64 65 | 78 20 3d 20 31 20 74 6f |ith inde|x = 1 to|
|00001a40| 20 38 0d 20 20 20 20 70 | 75 74 20 22 54 6f 74 61 | 8.    p|ut "Tota|
|00001a50| 6c 20 6e 75 6d 62 65 72 | 20 6f 66 20 73 70 6f 74 |l number| of spot|
|00001a60| 74 69 6e 67 73 20 66 6f | 72 20 73 65 63 74 69 6f |tings fo|r sectio|
|00001a70| 6e 20 4e 6f 2e 20 22 20 | 26 20 69 6e 64 65 78 0d |n No. " |& index.|
|00001a80| 20 20 20 20 70 75 74 20 | 4d 41 58 53 50 4f 54 54 |    put |MAXSPOTT|
|00001a90| 49 4e 47 53 28 6d 47 65 | 74 2c 49 6e 64 65 78 29 |INGS(mGe|t,Index)|
|00001aa0| 0d 20 20 20 20 70 75 74 | 20 22 4e 75 6d 62 65 72 |.    put| "Number|
|00001ab0| 20 6f 66 20 62 75 64 73 | 20 73 70 6f 74 74 65 64 | of buds| spotted|
|00001ac0| 20 69 6e 20 53 65 63 74 | 69 6f 6e 20 4e 6f 2e 20 | in Sect|ion No. |
|00001ad0| 22 20 26 20 69 6e 64 65 | 78 0d 20 20 20 20 70 75 |" & inde|x.    pu|
|00001ae0| 74 20 4e 75 6d 62 65 72 | 4f 66 53 70 6f 74 74 69 |t Number|OfSpotti|
|00001af0| 6e 67 73 28 6d 67 65 74 | 2c 49 6e 64 65 78 29 0d |ngs(mget|,Index).|
|00001b00| 20 20 20 20 70 75 74 20 | 22 42 75 64 20 54 79 70 |    put |"Bud Typ|
|00001b10| 65 73 20 53 70 6f 74 74 | 65 64 22 0d 20 20 20 20 |es Spott|ed".    |
|00001b20| 70 75 74 20 22 52 61 76 | 65 22 0d 20 20 20 20 70 |put "Rav|e".    p|
|00001b30| 75 74 20 4f 76 65 72 61 | 6c 6c 42 75 64 28 6d 47 |ut Overa|llBud(mG|
|00001b40| 65 74 2c 69 6e 64 65 78 | 29 20 69 6e 74 6f 20 54 |et,index|) into T|
|00001b50| 65 6d 70 4f 62 6a 0d 20 | 20 20 20 69 66 20 4f 62 |empObj. |   if Ob|
|00001b60| 6a 65 63 74 50 28 74 65 | 6d 70 4f 62 6a 29 20 3d |jectP(te|mpObj) =|
|00001b70| 20 46 41 4c 53 45 20 74 | 68 65 6e 20 65 78 69 74 | FALSE t|hen exit|
|00001b80| 0d 20 20 20 20 70 75 74 | 20 54 65 6d 70 4f 62 6a |.    put| TempObj|
|00001b90| 28 6d 47 65 74 2c 31 29 | 0d 20 20 20 20 70 75 74 |(mGet,1)|.    put|
|00001ba0| 20 22 52 6f 6d 22 0d 20 | 20 20 20 70 75 74 20 54 | "Rom". |   put T|
|00001bb0| 65 6d 70 4f 62 6a 28 6d | 47 65 74 2c 32 29 0d 20 |empObj(m|Get,2). |
|00001bc0| 20 20 20 70 75 74 20 22 | 52 61 6e 74 22 0d 20 20 |   put "|Rant".  |
|00001bd0| 20 20 70 75 74 20 54 65 | 6d 70 4f 62 6a 28 6d 47 |  put Te|mpObj(mG|
|00001be0| 65 74 2c 33 29 0d 20 20 | 65 6e 64 20 72 65 70 65 |et,3).  |end repe|
|00001bf0| 61 74 0d 65 6e 64 20 41 | 6c 6c 42 75 64 73 0d 0d |at.end A|llBuds..|
|00001c00| 0d 4f 6e 20 53 65 74 62 | 75 64 73 0d 20 20 47 6c |.On Setb|uds.  Gl|
|00001c10| 6f 62 61 6c 20 4f 76 65 | 72 61 6c 6c 42 75 64 2c |obal Ove|rallBud,|
|00001c20| 42 75 64 53 74 61 6d 70 | 0d 20 20 70 75 74 20 31 |BudStamp|.  put 1|
|00001c30| 38 20 69 6e 74 6f 20 42 | 61 63 6b 47 72 6f 75 6e |8 into B|ackGroun|
|00001c40| 64 0d 20 20 70 75 74 20 | 31 39 20 69 6e 74 6f 20 |d.  put |19 into |
|00001c50| 42 75 64 53 74 61 6d 70 | 0d 20 20 70 75 74 20 36 |BudStamp|.  put 6|
|00001c60| 34 20 69 6e 74 6f 20 56 | 53 65 67 0d 20 20 70 75 |4 into V|Seg.  pu|
|00001c70| 74 20 35 38 20 69 6e 74 | 6f 20 48 53 65 67 0d 20 |t 58 int|o HSeg. |
|00001c80| 20 73 65 74 20 74 68 65 | 20 70 75 70 70 65 74 20 | set the| puppet |
|00001c90| 6f 66 20 73 70 72 69 74 | 65 20 42 75 64 53 74 61 |of sprit|e BudSta|
|00001ca0| 6d 70 20 3d 20 54 52 55 | 45 0d 20 20 53 65 74 20 |mp = TRU|E.  Set |
|00001cb0| 74 68 65 20 74 72 61 69 | 6c 73 20 6f 66 20 73 70 |the trai|ls of sp|
|00001cc0| 72 69 74 65 20 42 75 64 | 53 74 61 6d 70 20 3d 20 |rite Bud|Stamp = |
|00001cd0| 54 52 55 45 0d 20 20 53 | 65 74 20 74 68 65 20 73 |TRUE.  S|et the s|
|00001ce0| 74 72 65 74 63 68 20 6f | 66 20 73 70 72 69 74 65 |tretch o|f sprite|
|00001cf0| 20 42 75 64 53 74 61 6d | 70 20 3d 20 46 41 4c 53 | BudStam|p = FALS|
|00001d00| 45 0d 20 20 53 65 74 20 | 74 68 65 20 69 6e 6b 20 |E.  Set |the ink |
|00001d10| 6f 66 20 73 70 72 69 74 | 65 20 42 55 64 53 74 61 |of sprit|e BUdSta|
|00001d20| 6d 70 20 3d 20 38 0d 20 | 20 70 75 74 20 74 68 65 |mp = 8. | put the|
|00001d30| 20 6c 65 66 74 20 6f 66 | 20 73 70 72 69 74 65 20 | left of| sprite |
|00001d40| 42 61 63 6b 47 72 6f 75 | 6e 64 20 2b 20 34 20 69 |BackGrou|nd + 4 i|
|00001d50| 6e 74 6f 20 6c 65 66 74 | 4f 66 66 0d 20 20 70 75 |nto left|Off.  pu|
|00001d60| 74 20 74 68 65 20 74 6f | 70 20 6f 66 20 73 70 72 |t the to|p of spr|
|00001d70| 69 74 65 20 42 61 63 6b | 47 72 6f 75 6e 64 20 2b |ite Back|Ground +|
|00001d80| 20 35 33 20 69 6e 74 6f | 20 54 6f 70 4f 66 66 0d | 53 into| TopOff.|
|00001d90| 20 20 72 65 70 65 61 74 | 20 77 69 74 68 20 69 6e |  repeat| with in|
|00001da0| 64 65 78 20 3d 20 32 20 | 74 6f 20 36 0d 20 20 20 |dex = 2 |to 6.   |
|00001db0| 20 70 75 74 20 69 6e 64 | 65 78 0d 20 20 20 20 70 | put ind|ex.    p|
|00001dc0| 75 74 20 4f 76 65 72 61 | 6c 6c 42 75 64 28 6d 47 |ut Overa|llBud(mG|
|00001dd0| 65 74 2c 69 6e 64 65 78 | 29 20 69 6e 74 6f 20 42 |et,index|) into B|
|00001de0| 75 64 74 79 70 65 73 0d | 20 20 20 20 53 65 74 20 |udtypes.|    Set |
|00001df0| 74 68 65 20 4c 6f 63 48 | 20 6f 66 20 73 70 72 69 |the LocH| of spri|
|00001e00| 74 65 20 42 75 64 53 74 | 61 6d 70 20 3d 20 4c 65 |te BudSt|amp = Le|
|00001e10| 66 74 4f 66 66 20 2b 20 | 28 48 53 65 67 2f 32 29 |ftOff + |(HSeg/2)|
|00001e20| 20 2b 20 28 28 49 6e 64 | 65 78 20 2d 20 32 29 2a | + ((Ind|ex - 2)*|
|00001e30| 48 53 65 67 29 0d 20 20 | 20 20 72 65 70 65 61 74 |HSeg).  |  repeat|
|00001e40| 20 77 69 74 68 20 69 6e | 6e 65 72 20 3d 20 31 20 | with in|ner = 1 |
|00001e50| 74 6f 20 33 0d 20 20 20 | 20 20 20 69 66 20 42 75 |to 3.   |   if Bu|
|00001e60| 64 74 79 70 65 73 28 6d | 47 65 74 2c 49 6e 6e 65 |dtypes(m|Get,Inne|
|00001e70| 72 29 20 3d 20 54 52 55 | 45 20 74 68 65 6e 0d 20 |r) = TRU|E then. |
|00001e80| 20 20 20 20 20 20 20 53 | 65 74 20 74 68 65 20 6c |       S|et the l|
|00001e90| 6f 63 56 20 6f 66 20 73 | 70 72 69 74 65 20 42 75 |ocV of s|prite Bu|
|00001ea0| 64 53 74 61 6d 70 20 3d | 20 54 6f 70 4f 66 66 20 |dStamp =| TopOff |
|00001eb0| 2b 20 28 56 53 65 67 2f | 32 29 20 2b 20 28 28 69 |+ (VSeg/|2) + ((i|
|00001ec0| 6e 6e 65 72 20 2d 20 31 | 29 2a 56 53 65 67 29 0d |nner - 1|)*VSeg).|
|00001ed0| 20 20 20 20 20 20 20 20 | 53 65 74 20 74 68 65 20 |        |Set the |
|00001ee0| 63 61 73 74 4e 75 6d 20 | 6f 66 20 73 70 72 69 74 |castNum |of sprit|
|00001ef0| 65 20 42 75 64 53 74 61 | 6d 70 20 74 6f 20 28 28 |e BudSta|mp to ((|
|00001f00| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 63 61 |the numb|er of ca|
|00001f10| 73 74 20 22 42 75 64 20 | 4f 6e 65 22 29 20 2b 20 |st "Bud |One") + |
|00001f20| 69 6e 6e 65 72 20 2d 20 | 31 29 20 0d 20 20 20 20 |inner - |1) .    |
|00001f30| 20 20 20 20 75 70 64 61 | 74 65 53 74 61 67 65 0d |    upda|teStage.|
|00001f40| 20 20 20 20 20 20 65 6e | 64 20 69 66 0d 20 20 20 |      en|d if.   |
|00001f50| 20 65 6e 64 20 72 65 70 | 65 61 74 0d 20 20 65 6e | end rep|eat.  en|
|00001f60| 64 20 72 65 70 65 61 74 | 0d 20 20 53 65 74 20 74 |d repeat|.  Set t|
|00001f70| 68 65 20 6c 6f 63 48 20 | 6f 66 20 73 70 72 69 74 |he locH |of sprit|
|00001f80| 65 20 42 75 64 53 74 61 | 6d 70 20 3d 20 2d 39 39 |e BudSta|mp = -99|
|00001f90| 39 39 0d 20 20 53 65 74 | 20 74 68 65 20 70 75 70 |99.  Set| the pup|
|00001fa0| 70 65 74 20 6f 66 20 73 | 70 72 69 74 65 20 42 75 |pet of s|prite Bu|
|00001fb0| 64 53 74 61 6d 70 20 3d | 20 46 41 4c 53 45 0d 65 |dStamp =| FALSE.e|
|00001fc0| 6e 64 20 53 65 74 42 75 | 64 73 0d 0d 0d 4f 6e 20 |nd SetBu|ds...On |
|00001fd0| 52 61 6e 64 53 6e 64 20 | 74 68 65 53 6f 75 6e 64 |RandSnd |theSound|
|00001fe0| 2c 20 53 44 0d 20 20 50 | 75 70 70 65 74 53 6f 75 |, SD.  P|uppetSou|
|00001ff0| 6e 64 20 57 6f 72 64 20 | 72 61 6e 64 6f 6d 28 53 |nd Word |random(S|
|00002000| 44 29 20 6f 66 20 74 68 | 65 53 6f 75 6e 64 0d 65 |D) of th|eSound.e|
|00002010| 6e 64 20 52 61 6e 64 53 | 6e 64 0d 0d 0d 46 61 63 |nd RandS|nd...Fac|
|00002020| 74 6f 72 79 20 41 72 72 | 61 79 0d 20 20 0d 6f 6e |tory Arr|ay.  .on|
|00002030| 20 73 74 61 72 74 4d 6f | 76 69 65 0d 20 20 70 72 | startMo|vie.  pr|
|00002040| 65 6c 6f 61 64 63 61 73 | 74 20 41 31 31 2c 20 42 |eloadcas|t A11, B|
|00002050| 37 35 0d 20 20 77 68 65 | 6e 20 6d 6f 75 73 65 44 |75.  whe|n mouseD|
|00002060| 6f 77 6e 20 74 68 65 6e | 20 73 74 6f 70 53 6f 6e |own then| stopSon|
|00002070| 67 0d 65 6e 64 20 73 74 | 61 72 74 4d 6f 76 69 65 |g.end st|artMovie|
|00002080| 0d 0d 6f 6e 20 73 74 6f | 70 53 6f 6e 67 0d 20 20 |..on sto|pSong.  |
|00002090| 2d 2d 20 61 6c 6c 6f 77 | 20 61 6e 79 20 6d 6f 75 |-- allow| any mou|
|000020a0| 73 65 43 6c 69 63 6b 20 | 65 78 63 65 70 74 20 74 |seClick |except t|
|000020b0| 68 65 20 73 6c 69 64 65 | 72 20 74 6f 20 73 74 6f |he slide|r to sto|
|000020c0| 70 20 74 68 65 20 61 75 | 64 69 6f 0d 20 20 69 66 |p the au|dio.  if|
|000020d0| 20 74 68 65 20 63 6c 69 | 63 6b 4f 6e 20 3c 3e 20 | the cli|ckOn <> |
|000020e0| 32 34 20 74 68 65 6e 0d | 20 20 20 20 73 6f 75 6e |24 then.|    soun|
|000020f0| 64 20 73 74 6f 70 20 31 | 0d 20 20 20 20 77 68 65 |d stop 1|.    whe|
|00002100| 6e 20 6d 6f 75 73 65 44 | 6f 77 6e 20 74 68 65 6e |n mouseD|own then|
|00002110| 20 6e 6f 74 68 69 6e 67 | 0d 20 20 65 6e 64 20 69 | nothing|.  end i|
|00002120| 66 0d 65 6e 64 20 73 74 | 6f 70 53 6f 6e 67 0d 15 |f.end st|opSong..|
|00002130| 4c 54 20 2d 20 4c 75 6f | 6e 67 20 54 61 6d 20 44 |LT - Luo|ng Tam D|
|00002140| 65 73 69 67 6e 27 54 65 | 72 72 79 20 52 2e 20 53 |esign'Te|rry R. S|
|00002150| 63 68 75 73 73 6c 65 72 | 20 2d 20 67 72 61 79 20 |chussler| - gray |
|00002160| 6d 61 74 74 65 72 20 64 | 65 73 69 67 6e 00 00    |matter d|esign.. |
+--------+-------------------------+-------------------------+--------+--------+